<html>
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
</head>
 
 
<script language="javascript">
function messageWindow(title)
{
		/*if(form1.inAll.checked)
		{*/
			form1.action = "InPhieuDiemTPCongNghe.asp"
			form1.target = "new"
			form1.submit()
			form1.action = "CapNhatDiemCongNgheTheoCongDoan.asp"
			form1.target = "_self"
		//}
		/*else
		{
			url="InPhieuDiemTPCongNghe.asp?MaThanhVien="+document.all.MaThanhVien.value+"&inAll=off";
		  	var height=screen.height;
			var width=screen.width;
		
			//content="status,menubar,scrollbars,height=" + height + ",width=" + width +")";
			//var newWindow = window.open(url,"msgWindow",content);
		  var newWindow = window.open(url,"msgWindow", "status,menubar,scrollbars,height=600,width=800");
		
			newWindow.focus( );*	
		}*/
}
</script>

 <body>
    <%
					MaSanPham=Session("ma_sp")
					MaHoiDong=Session("ma_hd")
				  MaDoanhNghiep=Session("ma_dn")
				  errorStr = Request.QueryString("errorStr")
				  
				  MaThanhVien = Request.QueryString("MaThanhVien")
				  
						dim RsDoanhNghiep
						Set RsDoanhNghiep= Server.CreateObject("ADODB.Recordset")
						RsDoanhNghiep.open "Select MaDoanhNghiep,TenDoanhNghiep from DoanhNghiep where MaDoanhNghiep='" & MaDoanhNghiep & "'",conn,3
						sql = "SELECT TenSanPham FROM SanPham WHERE MaSanPham ='"& MaSanPham & "'"
						RS.Open sql,conn
				  
						Dim RS23
						Set RS23 = Server.CreateObject("ADODB.Recordset")
						sql = "Select ThanhVien.MaThanhVien,TenThanhVien From ThanhVien inner join HoiDongChamDiem  on ThanhVien.MaThanhVien=HoiDongChamDiem.MathanhVien where ThanhVien.Status=1 and MahoiDong='" & MaHoiDong & "' and HoiDongChamDiem.Status=1"
						RS23.Open sql,conn,3
						MaCongDoanSize = RS2.RecordCount
						
						Dim RsMaGiaCong
						Set RsMaGiaCong = Server.CreateObject("ADODB.Recordset")
						sql = "SELECT MaBuocGiaCong, TenBuocGiaCong FROM BuocGiaCong WHERE MaSanPham='"+MaSanPham+"' AND MaHoiDong='"+MaHoiDong& "'"
						RsMaGiaCong.Open sql,conn,3
						MaGiaCongSize = RsMaGiaCong.RecordCount*MaCongDoanSize
						
						Dim RsMaHieuQua
						Set RsMaHieuQua = Server.CreateObject("ADODB.Recordset")
						sql = "SELECT MaHieuQuaCongNghe_KyThuat, TenHieuQuaCongNghe_KyThuat FROM HieuQuaCongNghe_KyThuat WHERE MaSanPham='"+MaSanPham+"' AND MaHoiDong='"+MaHoiDong& "'"
						'RsMaHieuQua.Open sql,conn
						
						CongDoanSize = 0
						HieuQuaSize = 0
    %>
    <form action="CapNhatDiemCongNgheTheoCongDoan.asp" method="post" name="form1" id="form1">
        <table width="100%" border="0">
            <tr>
                <td width="23%">
                    Tên sản phẩm:</td>
                <td width="77%">
                    <strong>
                        <%=RS("TenSanPham")%>
                        <input name="masp" type="hidden" id="masp" value="<%=session("ma_sp")%>" />
                    </strong>
                </td>
            </tr>
            <tr>
                <td>
                    Cơ sở sản xuất:</td>
                <td>
                    <strong>
                        <%=RsDoanhNghiep("TenDoanhNghiep")%>
                        <input name="madn" type="hidden" id="madn" value="<%=session("ma_dn")%>" />
                    </strong>
                </td>
            </tr>
            <tr>
                <td>
                    Họ tên người chấm điểm:</td>
                <td>
                    <select name="MaThanhVien" onchange="window.location='PhieuDiemTPCongNghe.asp?MaThanhVien='+this.value">
                        <option value="0">--Chọn một thành viên--</option>
                        <%
	    
	while not (RS2.EOF)
                        %>
                        <%if (cint(Request.QueryString("MaThanhVien"))=RS2("MaThanhVien")) then  %>
                        <option value="<%=RS2("MaThanhVien")%>" selected="selected">
                            <%=RS23("TenThanhVien")%>
                        </option>
                        <%else %>
                        <option value="<%=RS2("MaThanhVien")%>">
                            <%=RS23("TenThanhVien")%>
                        </option>
                        <%end if%>
                        <%
	RS2.MoveNext
	wend
                        %>
                        <%RS23.close()%>
                    </select>
                    <strong>
                        <input name="mahd" type="hidden" id="mahd" value="<%=session("ma_hd")%>" />
                    </strong>
                </td>
            </tr>
        </table>
        <%
				  if(cint(Request.QueryString("MaThanhVien")) > 1 )	 then									
        %>
        <input name="InPhieuDiem" type="button" id="InPhieuDiem" value="In phiếu điểm" onclick="messageWindow('Phiếu cho điểm thành phần Công Nghệ')" />
        <input type="checkbox" name="inAll" id="inAll" />In tất cả phiếu điểm đã chấm
        <h4 align="center">
            <%=errorStr%>
        </h4>
        <table width="100%" border="1">
            <tr>
                <td height="45" colspan="4" align="center">
                    PHIẾU CHO ĐIỂM THÀNH PHẦN CÔNG NGHỆ THEO CÔNG ĐOẠN</td>
            </tr>
            <tr>
                <td width="262" rowspan="2" align="center">
                    Các thành phần Công Nghệ
                </td>
                <td colspan="2" align="center">
                    Điểm cho
                </td>
                <td width="150" rowspan="2" align="center">
                    Tiêu chuẩn điểm
                    <br />
                    m</td>
            </tr>
            <tr>
                <td width="58" height="23">
                    <div align="center">
                        min</div>
                </td>
                <td width="56">
                    <div align="center">
                        max</div>
                </td>
            </tr>
            <tr>
                <td>
                    <div align="center">
                        <strong>T Thiết Bị </strong>
                    </div>
                </td>
                <td>
                    <div align="center">
                        P min
                    </div>
                </td>
                <td>
                    <div align="center">
                        P max
                    </div>
                </td>
                <td>
                    <div align="center">
                        Theo mức đạt trên mức thiết kế
                    </div>
                </td>
            </tr>
            <tr>
                <td>
                    <div align="center">
                        <% while(not RsMaGiaCong.EOF) 
				HieuQuaSize = 0
				RsMaHieuQua.Open sql,conn
                        %>
                        <tr rowspan="4">
                            <td colspan="3" align="center">
                                <input type="hidden" name="MaGiaCong<%=CongDoanSize%>" id="MaGiaCong<%=CongDoanSize%>"
                                    size="3" value="<%=RsMaGiaCong(0)%>" />
                                <b>
                                    <%=RsMaGiaCong(1) %>
                                </b>
                            </td>
                            <%
					if(CongDoanSize=0) then
                            %>
                            <td valign="top" rowspan="<%=MaGiaCongSize%>">
                                <ul>
                                    <li>Trên 80% : 8,9</li>
                                    <li>Từ 70%-80% : 7,8</li>
                                    <li>Từ 60%-70% : 6,7</li>
                                    <li>Từ 50%-60% : 5,6</li>
                                    <li>Dưới 50% : 3,4,5</li>
                                </ul>
                            </td>
                            <%
					end if
                            %>
                        </tr>
                        <% 
					while(not RsMaHieuQua.EOF)
                        %>
                        <tr>
                            <td>
                                <%=RsMaHieuQua(1)%>
                                <input type="hidden" name="MaHieuQua<%=CongDoanSize%><%=HieuQuaSize%>" value="<%=RsMaHieuQua(0)%>" /></td>
                            <%
						MaGiaCong = RsMaGiaCong(0)
						MaHieuQua = RsMaHieuQua(0)
						sql6 = "SELECT PCDmin, PCDmax FROM DiemCongNgheTheoCongDoan WHERE MaThanhVien = '" & Request.QueryString("MaThanhVien") & "' AND MaBuocGiaCong='" & MaGiaCong & "' AND MaHieuQuaCongNghe_KyThuat='" & MaHieuQua & "'"
						Dim RSnew
						Set RSnew = Server.CreateObject("ADODB.Recordset")
						RSnew.Open sql6,conn
						if(not RSnew.EOF) then
                            %>
                            <td>
                                <input type="text" onblur="if ((this.value>=10)||(this.value<1) || isNaN(this.value) || (this.value > Pmax<%=CongDoanSize%><%=HieuQuaSize%>.value)){alert('Pmin phải là kiểu số ,không được nhỏ hơn 1 hoặc lớn hơn 10.'); this.value='1'; this.focus(); this.select(); };"
                                    name="Pmin<%=CongDoanSize%><%=HieuQuaSize%>" size="3" value="<%=RSnew(0)%>" /></td>
                            <td>
                                <input type="text" onblur="if ((this.value>=10)||(this.value<1) || isNaN(this.value) || (this.value < Pmin<%=CongDoanSize%><%=HieuQuaSize%>.value)){alert('Pmax phải là kiểu số ,không được nhỏ hơn 1 hoặc lớn hơn 10 và không được nhỏ hơn Pmin tương ứng.'); this.value='1'; this.focus(); this.select();};"
                                    name="Pmax<%=CongDoanSize%><%=HieuQuaSize%>" size="3" value="<%=RSnew(1)%>" /></td>
                        </tr>
                        <%
					else
                        %>
                        <td>
                            <input type="text" onblur="if ((this.value>=10)||(this.value<1) || isNaN(this.value)){alert('Pmin phải là kiểu số ,không được nhỏ hơn 1 hoặc lớn hơn 10.'); this.value='1'; this.focus(); this.select(); };"
                                name="Pmin<%=CongDoanSize%><%=HieuQuaSize%>" size="3" value="1" /></td>
                        <td>
                            <input type="text" onblur="if ((this.value>=10)||(this.value<1) || isNaN(this.value) || (this.value < Pmin<%=CongDoanSize%><%=HieuQuaSize%>.value)){alert('Pmax phải là kiểu số ,không được nhỏ hơn 1 hoặc lớn hơn 10 và không được nhỏ hơn Pmin tương ứng.'); this.value='1'; this.focus(); this.select();};"
                                name="Pmax<%=CongDoanSize%><%=HieuQuaSize%>" size="3" value="1" /></td>
                        <%
					end if
				
					HieuQuaSize = HieuQuaSize + 1
					RsMaHieuQua.moveNext()
					Wend
					RsMaHieuQua.Close

				CongDoanSize = CongDoanSize + 1
				RsMaGiaCong.moveNext()
				Wend	
                        %>
                    </div>
                </td>
            </tr>
            <br />
            <br />
            <br />
            <tr>
                <td>
                    <input type="submit" name="Submit" value="Chấm điểm" />
                    <input type="hidden" name="CongDoanSize" value="<%=CongDoanSize%>" />
                    <input type="hidden" name="HieuQuaSize" value="<%=HieuQuaSize%>" />
                </td>
            </tr>
        </table>
    </form>
    <%end if%>
</body>
</html>
